unit UFormDesdobrar;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids;

type
  TFormDesdobrar = class(TForm)
    BBtnOk: TBitBtn;
    BtnCancel: TBitBtn;
    Label1: TLabel;
    EdtInserir: TEdit;
    procedure BBtnOkClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Linhas : word;
  end;

var
  FormDesdobrar: TFormDesdobrar;

implementation

{$R *.dfm}

procedure TFormDesdobrar.BBtnOkClick(Sender: TObject);
begin
  Linhas := 0;
  if EdtInserir.Text <> '' then Linhas := StrToInt(EdtInserir.Text);
  Close;
end;

procedure TFormDesdobrar.BtnCancelClick(Sender: TObject);
begin
  Linhas := 0;
  Close;
end;

end.
